﻿Public Structure Station
	Dim name As String
	Dim url As String
	Dim type As String
	Dim supportsdiscovery As String

	Public Sub New(ByRef xmlStation As XElement)
		parseXML(xmlStation)
	End Sub

	Public Sub parseXML(ByRef xmlAlbum As XElement)
		If (xmlAlbum.<name>.Count > 0) Then
			name = xmlAlbum.<name>.Value
		End If
		If (xmlAlbum.<url>.Count > 0) Then
			url = xmlAlbum.<url>.Value
		End If
		If (xmlAlbum.<type>.Count > 0) Then
			type = xmlAlbum.<type>.Value
		End If
		If (xmlAlbum.<supportsdiscovery>.Count > 0) Then
			supportsdiscovery = xmlAlbum.<supportsdiscovery>.Value
		End If
	End Sub
End Structure
